﻿Module Module1
  Sub Main()
    Dim counter As New Contatore
    Do While counter.Leggi < 100
      counter.Incrementa()
      Console.WriteLine(counter.Leggi)
    Loop
    Console.ReadLine()
  End Sub
End Module

